home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD006b.dsk / INSPECT FILES.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  51 lines
  1. 1  HOME 
  2. 2  VTAB 5
  3. 10 D$ = "<CTRL-D>"
  4. 15  DIM WD(8)
  5. 16  PRINT "THE WORD FILES ARE LT5, LT6, LT7, & LT8"
  6. 20  INPUT "WHICH FILE ";F$
  7. 30  IF F$ = "LT5"  THEN BY = 15:LT = 4: GOTO 70
  8. 40  IF F$ = "LT6"  THEN BY = 18:LT = 5: GOTO 70
  9. 50  IF F$ = "LT7"  THEN BY = 21:LT = 6: GOTO 70
  10. 60  IF F$ = "LT8"  THEN BY = 24:LT = 7
  11. 70  PRINT D$;"OPEN ";F$;",L";BY
  12. 80  PRINT D$;"READ ";F$;",R0"
  13. 85  INPUT RE
  14. 90  FOR I = 1 TO RE
  15. 100  PRINT D$;"READ ";F$;",R";I
  16. 110  FOR J = 0 TO LT: INPUT WD(J): NEXT J
  17. 115  PRINT "RECORD # ";I;"     WORD: ";
  18. 120  FOR J = 0 TO LT
  19. 130  IF WD(J) = 11  THEN  PRINT "A";
  20. 140  IF WD(J) = 12  THEN  PRINT "B";
  21. 150  IF WD(J) = 13  THEN  PRINT "C";
  22. 160  IF WD(J) = 14  THEN  PRINT "D";
  23. 170  IF WD(J) = 15  THEN  PRINT "E";
  24. 180  IF WD(J) = 16  THEN  PRINT "F";
  25. 190  IF WD(J) = 17  THEN  PRINT "G";
  26. 200  IF WD(J) = 18  THEN  PRINT "H";
  27. 210  IF WD(J) = 19  THEN  PRINT "I";
  28. 220  IF WD(J) = 20  THEN  PRINT "J";
  29. 230  IF WD(J) = 21  THEN  PRINT "K";
  30. 240  IF WD(J) = 22  THEN  PRINT "L";
  31. 250  IF WD(J) = 23  THEN  PRINT "M";
  32. 260  IF WD(J) = 24  THEN  PRINT "N";
  33. 270  IF WD(J) = 25  THEN  PRINT "O";
  34. 280  IF WD(J) = 26  THEN  PRINT "P";
  35. 290  IF WD(J) = 27  THEN  PRINT "Q";
  36. 300  IF WD(J) = 28  THEN  PRINT "R";
  37. 310  IF WD(J) = 29  THEN  PRINT "S";
  38. 320  IF WD(J) = 30  THEN  PRINT "T";
  39. 330  IF WD(J) = 31  THEN  PRINT "U";
  40. 340  IF WD(J) = 32  THEN  PRINT "V";
  41. 350  IF WD(J) = 33  THEN  PRINT "W";
  42. 360  IF WD(J) = 34  THEN  PRINT "X";
  43. 370  IF WD(J) = 35  THEN  PRINT "Y";
  44. 380  IF WD(J) = 36  THEN  PRINT "Z";
  45. 500  NEXT J
  46. 510  PRINT " "
  47. 520  NEXT I
  48. 530  PRINT D$;"CLOSE"
  49. 540  INPUT "DO YOU WISH TO CONTINUE ";F$
  50. 550  IF F$ = "Y"  THEN  GOTO 20
  51. 560  END